home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nebula 1
/
Nebula One.iso
/
Utilities
/
Converters
/
Convert_PICT
/
Convert PICT.app
/
UncommentedPSCode
/
Patterns
< prev
next >
Wrap
Text File
|
1995-06-12
|
1KB
|
73 lines
%BEGIN Patterns
/GetPatGrey
{
/QDpattern exch def
/darkness 0 def
0 1 7
{
/patByte exch def
/darkness
QDpattern patByte get
255 div darkness add
def
}
for
darkness 8 div
}
def
/FillQDPatDict
{
begin
/QDPatType exch def
QDPatType 0 eq
{
/QDPatData exch def
/QDPatGrey QDPatData GetPatGrey def
}
{
QDPatType 2 eq
{
/QDColorValue exch def
pop % B&W pattern not needed. color will suffice.
}
{
/QDPatBitmap exch def
/QDisPacked exch def
/QDDestHeight exch def
/QDDestWidth exch def
/Height exch def
/Width exch def
/QDTop exch def
/QDLeft exch def
/BitsPerComponent exch def
/QDColorTable exch def
/QDNumColors exch def
/QDPatData exch def
/QDPatGrey QDPatData GetPatGrey def
}
ifelse
}
ifelse
end
}
def
/bkPat
{backPattern FillQDPatDict}
def
/pnPat
{penPattern FillQDPatDict}
def
/fillPat
{fillPattern FillQDPatDict}
def
/bkPixPat
{backPattern FillQDPatDict}
def
/pnPixPat
{penPattern FillQDPatDict}
def
/fillPixPat
{fillPattern FillQDPatDict}
def
%END Patterns